home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gamers Delight 2
/
Gamers Delight 2.iso
/
Aminet
/
game
/
think
/
MADgic41.lzh
/
1990
/
Basilisk.s
< prev
next >
Wrap
Text File
|
1992-03-10
|
2KB
|
36 lines
;
; Warrior: Basilisk
; File name: basilisk.red
; Tournament: ICWST'90
; Standard: CWS'88
; Author: James T. McMahon - Renfrew / Ontario / Canada
;
LEFTCLAW DAT 0 ; POINTER TO FIRST ATTACK POSITION
RIGHTCLAW DAT 2 ; POINTER TO SECOND ATTACK POSITION
HOWFAR DAT 63 ; HOW FAR TO ATTACK BEFORE RESETING
HOWMANY DAT 18 ; HOW MANY TIMES TO ATTACK
STONE SPL STONE ; STOP AN ENEMY IN IT'S TRACKS
CLAW DAT 0 ; KILL AN ENEMY
ATTACK SUB # 127 LEFTCLAW ; SET FIRST ATTACK POSITION
SUB # 129 RIGHTCLAW ; SET SECOND ATTACK POSITION
ADD # 129 LEFTEYE ; SET THIRD ATTACK POSITION
ADD # 127 RIGHTEYE ; SET FOURTH ATTAK POSITION
MOV CLAW @ LEFTCLAW ; CLAW FIRST ATTACK POSITION
MOV CLAW @ RIGHTCLAW ; STONE SECOND ATTAK POSITION
MOV STONE @ LEFTEYE ; STONE THIRD ATTACK POSITION
MOV STONE @ RIGHTEYE ; CLAW FOURTH ATTACK POSITION
DJN ATTACK HOWFAR ; AT END OF ATTACK RUN
MOV # 63 HOWFAR ; RESET HOWFAR TO ATTACK
SUB # 184 LEFTCLAW ; RESET FIRST ATTACK POSITION
SUB # 58 RIGHTCLAW ; RESET SECOND ATTACK POSITION
ADD # 58 LEFTEYE ; RESET THIRD ATTACK POSITION
ADD # 184 RIGHTEYE ; RESET FOURTH ATTACK POSITION
DJN ATTACK HOWMANY ; AT END OF ATTACK PROCESS
GOBBLE MOV CLAW < CLAW ; CLAW AN ENEMY
DJN GOBBLE < CLAW ; KEEP ON CLAWING
ADD # 3 CLAW ; RESET CLAW
JMP GOBBLE ; CONTINUE CLAWING
LEFTEYE DAT 3 ; THIRD ATTACK POSITION
RIGHTEYE DAT 4 ; FOURTH ATTACK POSITION
END ATTACK